home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
NJNEW.ASP
< prev
next >
Wrap
Text File
|
1991-01-09
|
8KB
|
385 lines
goto init
dial:
strcmp s4 " "
if success
return
endif
isfile s4
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
atsay 01 08 n9 "│ │ │"
atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
atsay 01 02 n8 "NJNEW"
atsay 01 10 n8 s4
atsay 01 21 n8 "Newark, NJ 201"
atsay 01 51 n8 s5
locate 05 00
transmit "I^m"
pause 1
transmit "ATZ^m"
waitfor "OK"
transmit "^E^m"
waitfor "READY"
transmit "D"
transmit S4
transmit "^m"
rget s1
rget s1 80 40
rget s1 40 40
rget s1 40 40
mess:
find s1 "BUSY"
if found
strcpy s9 "M"
return
endif
find s1 "ANSWER TONE"
if found
clear
log open s4
alarm 2
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
log open s4
message "APCP: No answer - still ringing"
log close
transmit "^C^D^C"
endif
else
endif
return
top:
find s0 "A"
if found
strcpy s4 "694-7425"
strcpy s5 "Gelb's Data Base "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "667-2504"
strcpy s5 "Nutley "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "396-4361"
strcpy s5 "Wizard's "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "963-3115"
strcpy s5 "Police Station "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "750-6174"
strcpy s5 "Hidden Arsenal II "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "783-7458"
strcpy s5 "Shelter "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "288-9076"
strcpy s5 "Wizard's Tower "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "277-6522"
strcpy s5 "God's RBBS "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "227-9481"
strcpy s5 "Garden State Software Exch "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "694-3348"
strcpy s5 "Seaboard "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "729-7410"
strcpy s5 "Software Society "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "743-2570"
strcpy s5 "North Jersey PC Users Group"
gosub dial
endif
find s0 "M"
if found
strcpy s4 "478-0784"
strcpy s5 "T.I. Pro Board "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "330-0613"
strcpy s5 "Pleasure "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "943-2226"
strcpy s5 "Cork Board "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "595-5357"
strcpy s5 "PC Lab "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "757-3387"
strcpy s5 "Metro CPU Studio "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "284-2198"
strcpy s5 "The Xtra "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "687-7720"
strcpy s5 "Cyclotron "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "239-1346"
strcpy s5 "Microsellar "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "943-5419"
strcpy s5 "Data Base "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "542-1429"
strcpy s5 "Cloneworld "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "628-7287"
strcpy s5 "React Fido "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "494-3649"
strcpy s5 "Micro-Fone "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "753-9758"
strcpy s5 "ACGNJ #2 "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "332-1842"
strcpy s5 "Ramtec Micro Board "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "538-0413"
strcpy s5 "Visions BBS "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "381-0936"
strcpy s5 "Proteus BBS "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "886-8041"
strcpy s5 "Steve's BBS "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "494-8666"
strcpy s5 "BBBBS "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "568-7293"
strcpy s5 "The Boss BBS "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "396-8516"
strcpy s5 "SSBBS "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "580-0486"
strcpy s5 "The Milky Way RBBS "
gosub dial
endif
find s0 "7"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "8"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "9"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "@"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "#"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "$"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "%"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "&"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s0 "*"
if found
strcpy s4 " "
strcpy s5 " "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 2
exit
init:
strcpy s9 " "
log close
clear
init n9 07
init n8 07
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A Gelb's ................. 694-7425"
atsay 02 02 n8 "B Nutley ................. 667-2504"
atsay 03 02 n8 "C Wizard's ............... 396-4361"
atsay 04 02 n8 "D The Police Station ..... 963-3115"
atsay 05 02 n8 "E Hidden Arsenal ......... 750-6174"
atsay 06 02 n8 "F Shelter ................ 783-7458"
atsay 07 02 n8 "G Wizard's Tower ......... 288-9076"
atsay 08 02 n8 "H God's RBBS ............. 277-6522"
atsay 09 02 n8 "I Garden State SW Exch ... 227-9481"
atsay 10 02 n8 "J Seaboard ............... 694-3348"
atsay 11 02 n8 "K Software Society ....... 729-7410"
atsay 12 02 n8 "L North Jersey PCUG ...... 743-2570"
atsay 13 02 n8 "M T.I. Pro ............... 478-0784"
atsay 14 02 n8 "N Pleasure ............... 330-0613"
atsay 15 02 n8 "O Cork Board ............. 943-2226"
atsay 16 02 n8 "P PC Lab ................. 595-5357"
atsay 17 02 n8 "Q Metro CPU Studio ....... 757-3387"
atsay 18 02 n8 "R The Xtra ............... 284-2198"
atsay 19 02 n8 "S Cyclotron .............. 687-7720"
atsay 20 02 n8 "T Microsellar ............ 239-1346"
atsay 21 02 n8 "U Data Base .............. 943-5419"
atsay 01 43 n8 "V Cloneworld ............. 542-1429"
atsay 02 43 n8 "W React Fido ............. 628-7287"
atsay 03 43 n8 "X Micro-Fone ............. 494-3649"
atsay 04 43 n8 "Y ACGNJ #2 ............... 753-9758"
atsay 05 43 n8 "Z Ramtec Micro Board ..... 332-1842"
atsay 06 43 n8 "0 Visions BBS ............ 538-0413"
atsay 07 43 n8 "1 Proteus TBBS ........... 381-0936"
atsay 08 43 n8 "2 Steve's BBS ............ 886-8041"
atsay 09 43 n8 "3 BBBBS .................. 494-8666"
atsay 10 43 n8 "4 The BOSS BBS ........... 568-7293"
atsay 11 43 n8 "5 SSBBS .................. 396-8516"
atsay 12 43 n8 "6 The Milky Way RBBS ..... 580-0486"
atsay 13 43 n8 "7 ........................ ... ...."
atsay 14 43 n8 "8 ........................ ... ...."
atsay 15 43 n8 "9 ........................ ... ...."
atsay 16 43 n8 "@ ........................ ... ...."
atsay 17 43 n8 "# ........................ ... ...."
atsay 18 43 n8 "$ ........................ ... ...."
atsay 19 43 n8 "% ........................ ... ...."
atsay 20 43 n8 "& ........................ ... ...."
atsay 21 43 n8 "* ........................ ... ...."
locate 23 00
get s0
goto top
return